perm filename CH.DIF[MF,ALS]1 blob sn#786590 filedate 1985-02-14 generic text, type T, neo UTF8
  1) DV.CH[MF,ALS] and 2) DVIIMP.CH[1,DRF]	2-14-85 10:04	pages 1,1

**** File 1) DV.CH[MF,ALS]/1P/1L
1)	COMMENT ⊗   VALID 00007 PAGES
1)	C REC  PAGE   DESCRIPTION
**** File 2) DVIIMP.CH[1,DRF]/1P/1L
2)	COMMENT ⊗   VALID 00008 PAGES
2)	C REC  PAGE   DESCRIPTION
***************


**** File 1) DV.CH[MF,ALS]/1P/10L
1)	C00016 ENDMK
1)	C⊗;
**** File 2) DVIIMP.CH[1,DRF]/1P/10L
2)	C00015 00008	@x user and file id
2)	C00018 ENDMK
2)	C⊗;
***************


**** File 1) DV.CH[MF,ALS]/4P/13L
1)	begin reset(dvi_file,'','/B:8');
1)	cur_loc←0;
**** File 2) DVIIMP.CH[1,DRF]/4P/13L
2)	begin reset(dvi_file,'','/B:8/N:9');
2)	cur_loc←0;
***************


**** File 1) DV.CH[MF,ALS]/4P/21L
1)	@z
**** File 2) DVIIMP.CH[1,DRF]/4P/21L
2)	@#
2)	procedure cur_nam(var chan:f@&i@&l@&e;var s:string); extern; @t\2@>@/
2)	@z
***************


**** File 1) DV.CH[MF,ALS]/4P/29L
1)	begin rewrite(im_file,'','/B:8'); im_byte_no←0;
1)	end;
**** File 2) DVIIMP.CH[1,DRF]/4P/31L
2)	begin rewrite(im_file,'','/B:8/N:9'); im_byte_no←0;
2)	end;
***************


**** File 1) DV.CH[MF,ALS]/7P/52L
1)	m←round((0.3*mag*q)/d);
  1) DV.CH[MF,ALS] and 2) DVIIMP.CH[1,DRF]	2-14-85 10:04	pages 7,7

1)	cur_name[r+2]← xchr[(m div 100)+@'60];
1)	cur_name[r+3]← xchr[(m mod 100) div 10+@'60];
**** File 2) DVIIMP.CH[1,DRF]/7P/52L
2)	m←3*mag div 10;
2)	cur_name[r+2]← xchr[m div 100+@'60];
2)	cur_name[r+3]← xchr[(m mod 100) div 10+@'60];
***************


**** File 1) DV.CH[MF,ALS]/7P/70L
**** File 2) DVIIMP.CH[1,DRF]/8P/1L
2)	@x user and file id
2)	open_im_file;
2)	@y
2)	open_im_file;
2)	im_byte("@@");
2)	im_byte("d");
2)	im_byte("o");
2)	im_byte("c");
2)	im_byte("u");
2)	im_byte("m");
2)	im_byte("e");
2)	im_byte("n");
2)	im_byte("t");
2)	im_byte("(");
2)	im_byte("l");
2)	im_byte("a");
2)	im_byte("n");
2)	im_byte("g");
2)	im_byte("u");
2)	im_byte("a");
2)	im_byte("g");
2)	im_byte("e");
2)	im_byte(" ");
2)	im_byte("i");
2)	im_byte("m");
2)	im_byte("P");
2)	im_byte("r");
2)	im_byte("e");
2)	im_byte("s");
2)	im_byte("s");
2)	im_byte(",");
2)	im_byte(" ");
2)	im_byte("O");
2)	im_byte("w");
2)	im_byte("n");
2)	im_byte("e");
2)	im_byte("r");
  1) DV.CH[MF,ALS] and 2) DVIIMP.CH[1,DRF]	2-14-85 10:04	pages 7,8

2)	im_byte(" ");
2)	im_byte("""");
2)	calli(@'24,0,0,ppn.int,success);
2)	for dvi_n_len←1 to 6 do im_byte(ppn.sixbit[dvi_n_len]+@'40);
2)	im_byte("""");
2)	im_byte(",");
2)	im_byte("N");
2)	im_byte("a");
2)	im_byte("m");
2)	im_byte("e");
2)	im_byte(" ");
2)	im_byte("""");
2)	cur_nam(dvi_file,dvi_name);
2)	dvi_n_len←1;
2)	while ord(dvi_name[dvi_n_len])≠0 do
2)		begin im_byte(xord[dvi_name[dvi_n_len]]); incr(dvi_n_len);
2)		end;
2)	im_byte("""");
2)	im_byte(",");
2)	im_byte("D");
2)	im_byte("V");
2)	im_byte("I");
2)	im_byte("-");
2)	im_byte("i");
2)	im_byte("d");
2)	im_byte(" ");
2)	im_byte("""");
2)	for p←0 to id_len do im_byte(id[p]);
2)	im_byte("""");
2)	im_byte(")");
2)	@z
2)	@x
2)	@<Glob...@>=
2)	@y
2)	@<Glob...@>=
2)	@!dvi_name:packed array[1..24] of char;
2)	@!dvi_n_len:1..24; {file names at {\sc SAIL} have at most 23 characters}
2)	@!ppn:record case integer of
2)		1: (@!int: integer);
2)		2: (@!sixbit: packed array[1..6] of 0..@'77)
2)		end;
2)	@!success:boolean;
2)	@z
***************